1 REM TURTLE-DEMO: 'ALLEE'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
30 !GRAPHICS:!INIT
40 LA=6
45 BG=4.5:REM GROESSE DER BAEUME
50 DI=3:REM ABSTAND DER BAEUME
55 !PEN0:!MOVE100,198:!PEN1
60 GOSUB100
70 POKE198,.:WAIT198,1:POKE198,.
80 END
100 IFLA=0THENRETURN
110 LB=LA:GOSUB200
120 !PEN0:!TURNR45:!WALKBG*DI*LA:!TURNL45:!PEN1
130 !PUSHLA:LA=LA-1:GOSUB100:!PULLLA
140 RETURN
200 IFLB=0THENRETURN
210 !TURNL25:!WALKBG*LB
220 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
230 !BACKBG*LB:!TURNR50
240 !WALKBG*LB
250 !PUSHLB:LB=LB-1:GOSUB200:!PULLLB
260 !BACKBG*LB
270 !TURNL25
280 RETURN